home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Check Stuff / HyperCheck / background_4460.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  7.1 KB  |  348 lines
  1. -- background: 4460 from stack: in
  2. -- bmap block id: 6169
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: SER CHARGE
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into field "TIME"
  9.   put the long date into field "DATE"
  10.   global NAME
  11.   put NAME into field "cNAME"
  12.   global ACC
  13.   put ACC into field "ACC NO"
  14.   pass idle
  15. end idle
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: 8003
  21. -- rect: left=333 top=74 right=96 bottom=393
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: TAB KEY
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   TabKey
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 8003
  40. -- rect: left=400 top=149 right=171 bottom=446
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: TODAY
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   put the abbrev date into field "CH DATE"
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=9 top=309 right=334 bottom=38
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 17779 / 17779
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: 
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect checkerboard
  71.   GO TO PREVIOUS CARD
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 5 (button)
  77. -- low flags: 00
  78. -- high flags: 8003
  79. -- rect: left=44 top=310 right=332 bottom=144
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: ADD CHECK
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   set lockScreen to true
  91.   go to last card of background "CHECK"
  92.   get background field "CH NUM"
  93.   set lockScreen to false
  94.   doMenu "New Card"
  95.   put it + 1 into background field "CH NUM"
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 6 (button)
  101. -- low flags: 00
  102. -- high flags: 8003
  103. -- rect: left=149 top=310 right=332 bottom=249
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: ADD DEPOSIT
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   set lockScreen to true
  115.   go to last card of background "DEPOSIT"
  116.   get background field "DP NUM"
  117.   set lockScreen to false
  118.   doMenu "New Card"
  119.   put it + 1 into background field "DP NUM"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 7 (button)
  125. -- low flags: 00
  126. -- high flags: 8003
  127. -- rect: left=254 top=310 right=332 bottom=364
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: SERVICE CHARGE
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   set lockScreen to true
  139.   go to last card of background "SER CHARGE"
  140.   get background field "SC NUM"
  141.   set lockScreen to false
  142.   doMenu "New Card"
  143.   put it + 1 into background field "SC NUM"
  144.   put " " into field "B"
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 8 (button)
  150. -- low flags: 00
  151. -- high flags: 8003
  152. -- rect: left=369 top=310 right=332 bottom=469
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: BALANCE SHEET
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   visual dissolve
  164.   go to card "balance"
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 9 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=474 top=309 right=334 bottom=503
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 8419 / 8419
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: 
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   visual effect checkerboard
  184.   GO TO NEXT CARD
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 10 (field)
  190. -- low flags: 01
  191. -- high flags: 0000
  192. -- rect: left=349 top=37 right=56 bottom=507
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 16
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: DATE
  201.  
  202.  
  203. -- part 11 (field)
  204. -- low flags: 01
  205. -- high flags: 0000
  206. -- rect: left=404 top=57 right=75 bottom=465
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 16
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: TIME
  215.  
  216.  
  217. -- part 12 (field)
  218. -- low flags: 01
  219. -- high flags: 0000
  220. -- rect: left=18 top=120 right=172 bottom=178
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 16
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: cName
  229.  
  230.  
  231. -- part 13 (field)
  232. -- low flags: 01
  233. -- high flags: 0000
  234. -- rect: left=188 top=120 right=140 bottom=351
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 0
  238. -- font id: 16
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: ACC NO
  243.  
  244.  
  245. -- part 14 (field)
  246. -- low flags: 00
  247. -- high flags: 0001
  248. -- rect: left=229 top=152 right=169 bottom=376
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 16
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: CH DATE
  257.  
  258.  
  259. -- part 15 (field)
  260. -- low flags: 00
  261. -- high flags: 0000
  262. -- rect: left=421 top=120 right=137 bottom=494
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 16
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: SC Num
  271.  
  272.  
  273. -- part 16 (field)
  274. -- low flags: 00
  275. -- high flags: 0000
  276. -- rect: left=74 top=183 right=202 bottom=475
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 0
  280. -- font id: 16
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: 
  285.  
  286.  
  287. -- part 17 (field)
  288. -- low flags: 00
  289. -- high flags: 0000
  290. -- rect: left=101 top=205 right=224 bottom=240
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 0
  294. -- font id: 16
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: SC AMOUNT
  299.  
  300.  
  301. -- part 18 (field)
  302. -- low flags: 00
  303. -- high flags: 0000
  304. -- rect: left=71 top=232 right=267 bottom=497
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 0
  308. -- font id: 16
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: 
  313.  
  314.  
  315. -- part 19 (button)
  316. -- low flags: 00
  317. -- high flags: 8003
  318. -- rect: left=45 top=274 right=296 bottom=145
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: Cleared Bank
  327. ----- HyperTalk script -----
  328. on mouseUp
  329.   if field "B" is " "
  330.   then put X into field "B"
  331. else put " " into field "B"
  332. end mouseUp
  333.  
  334.  
  335.  
  336. -- part 20 (field)
  337. -- low flags: 01
  338. -- high flags: 0002
  339. -- rect: left=24 top=277 right=291 bottom=39
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 0
  343. -- font id: 16
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 14
  347. -- part name: B
  348.